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FORTRAN  PROGRAM  TO  DETERMINE  LENGTH  OF  GAGE  BLOCKS 
USING  SINGLE  WAVELENGTH  INTERFEROMETRY 

Ruth  N.  Varner 
Office  of  Measurement  Services 

Abstract 

A  description  of  a  computer  program  which  computes  the  length  of 
gage  block  from  a  process  using  single  wavelength  interferometry  is 
given.  The  computer  program  has  been  written  in  American  National 
Standards  Institute  FORTRAN,  with  emphasis  on  making  it  as  machine- 
independent  as  possible.  A  sample  of  input  and  output  is  given. 

Key  Words:  FORTRAN  computer  program;  gage  blocks;  interferometry 

1.  INTRODUCTION 


The  computer  program  described  in  this  paper  computes  and  reports 
the  length  of  a  gage  block  from  a  measurement  process  using  single 
wavelength  interferometry.  The  computer  subprograms  are  written  in 
American  National  Standards  Institute  Fortran  thereby  making  them 
transportable.  Descriptions  of  the  input,  computations,  and  output 
are  given.  Listings  of  the  computer  subprograms  are  included  along 
with  a  sample  run.  For  a  detailed  report  on  the  measurement  process, 
see  NBS  Monograph  152,  "A  Gage  Block  Measurement  Process  Using  Single 
Wavelength  Interferometry." 


2.  DESCRIPTION  OF  INPUT 

A  part  of  the  input  data  to  the  computer  program  is  in  fixed  field 
format  and  the  remainder  in  free  field  format.  A  fixed  field  format 
specifies  that  the  data  must  be  punched  in  specific  columns  on  the 
input  card  or  recorded  in  specific  fields  of  an  input  record.  In 
addition,  the  data  must  be  right  justified  in  the  allotted  fields. 
Free  field  format  allows  the  data  in  the  allotted  fields  to  appear 
anywhere  in  the  input  record.  Data  recorded  in  the  free  field  format 
is  accepted  only  if  it  is  numeric.  Non-numeric  characters  are  ignored 
except  in  the  cases  where  a  "D"  is  used  to  denote  double  precision 
data  or  an  "E"  is  used  to  denote  floating  point  data.  Numerical 
values  are  separated  from  each  other  by  one  or  more  blanks  or  a  comma. 
Alphanumeric  data  consists  of  numbers,  alphabetic  letters  and  special 
characters  like  :  or  /.  The  description  of  the  data  which  follows 
implies  the  use  of  cards  as  input.  Other  media,  such  as  a  magnetic 
tape  or  a  mass  storage  data  file,  using  the  same  specifications  may  be 
used.  See  Section  5.1  for  an  example.  Sections  4  and  5  of  NBS 
Monograph  152  describe  in  detail  the  procedures  used  in  acquiring  the 
data. 

1 


Card    Data 
No.    Description 

1     Test  number 
Time  (hr:min) 
Observer 
Platen  Number 
Month 
Day 
Year 
Interferometer  number* 

1  for  Zeiss-LB  (long  blocks) 

2  for  Hilger  1955  (short  blocks) 

3  for  Zeiss-SB  (short  blocks) 
Bridge  reading  (before 

normal  observation) 
Bridge  reading  (before 

reverse) 
Bridge  reading  (after 

normal  observation) 
Bridge  reading  (after 
reverse) 

*The  interferometer  number  may  refer  to  different  interferometers 
than  those  mentioned  above.  See  Section  Al.B. 


Column 

Data  Type 

Position 

Alphanumeric 

2  -  7 

Alphanumeric 

9  -  13 

Alphanumeric 

15  -  17 

Alphanumeric 

19  -  21 

Numeric   "\ 
Numeric    i 

Numeric 

These  values 

Numeric    / 

separated  by 

/ 

one  or  more 

blanks  or  a 

) 

comma  appear 

Numeric    f 

anywhere  between 

23  -  80  in  the 

Numeric    \ 

order  specified. 

Numeric 

Numeric   J 

Numer 
Numer 
Numer 
Numer 


Numer 
Numeri 


Thermocouple  reading  for 

the  block  (uV) 
Thermocouple  reading  for 

the  air  (yV) 
First  barometric  pressure 

reading  in  mm  of  Hg 
Second  barometric  pressure 

reading  in  mm  of  Hg 
Hygrometer  dial  reading 
Hygrometer  element  number** 

1  for  #6388  (long  blocks 

2  for  #6499  (long  blocks 

3  for  #6331  (short  blocks) 

4  for  #6415  (short  blocks) 

5  for  #7536  (short  blocks) 

6  for  #7530  (short  blocks) 

**The  hygrometer  element  number  may  refer  to  different  elements  than 
the  ones  specified  above.  See  Section  Al.B. 


These  values 
separated  by 
one  or  more 
blanks  or  a 
comma  appear 
anywhere  between 
1  -  80  in  the 
order  specified. 


Number  of  blocks  using  the 
above  conditions*** 


Numeric 


Anywhere  in 
1-80. 


***This  number  is  1  for  long  blocks.  For  short  blocks  it  is  the 
number  of  blocks  wrung  to  the  platen. 


Block  serial  number 

Nominal  block  length  (inches) 

Assumed  block  length  (inches) 

Coefficient  of  expansion 

(in  micro  inches  per 

degrees  Celsius  of  block) 
Maker  of  block 

MAT  for  Matrix 

DOA  for  DoAll 

P+W  for  Pratt  &  Whitney 

HOM  for  Hommel 

WEB  for  Weber 

CEJ  for  CEJ 

FON  for  Fonda 

F-J  for  Ford  Johnsen 
Material  of  block 

ST  for  steel  alloy 

CC  for  chrome  carbide 

TC  for  tungsten  carbide 

CV  for  cervit  (glass  ceramic) 

CS  for  cervit  plus  steel 
Type  of  block 

REC  for  rectangular 

SQR  for  square 

RND  for  round 

R+S  for  cervit  and  steel 

First  fringe  fraction  reading 
Second  fringe  fraction  reading 
Third  fringe  fraction  reading 
Fourth  fringe  fraction  reading 
Fifth  fringe  fraction  reading 
Sixth  fringe  fraction  reading 


Alphanumeric 

Numeric 
Double  precision 

numeric 
Double  precision 

numeric 

Alphanumeric 


Alphanumeric 


Alphanumeric 


Numeri 
Numeri 
Numeri 
Numeri 
Numeri 
Numeri 


"c 

'c 
'c 
"c 
'c 
'c 


1 

9 
28 

41 
71 


-  6 

-  20 

-  40 

-  60 


-  73 


75  -  76 


78  -  80 


These  values 
separated  by 
one  or  more 
blanks  or  a 
comma  appear 
anywhere  between 
1  -  80  in  the 
order  specified. 


Cards  4  and  5  are  repeated  for  the  number  of  times  indicated  on 

card  3.  If  more  data  is  available,  repeat  cards  1  through  5.  The 

end  of  data  is  denoted  by  the  flag  STOP  punched  in  columns  2-5 
of  the  final  card. 


3.  COMPUTER  PROGRAM 


This  section  contains  a  listing  of  the  computer  program  with  all 
its  subprograms  needed  to  carry  out  the  necessary  input,  calculations, 
and  output.  The  subprograms  are  written  in  American  National 
Standards  Institute  Fortran  thereby  making  them  transportable. 
Alphanumeric  data  is  restricted  to  three  characters  per  computer  word. 
Hard  copy  output  is  restricted  to  120  characters  per  line.  Card 
output  is  restricted  to  80  columns.  The  program  was  written  for  the 
Univac  1108  and  is  operational  under  the  EXEC-8  operating  system. 
There  are  1580  lines  of  Fortran  code  consisting  of  one  main  program, 
ten  subprograms,  and  one  BLOCK  DATA  subprogram.  The  BLOCK  DATA 
subprogram  contains  all  the  variables  which  may  need  to  be  changed  due 
to  the  replacement  of  any  of  the  equipment  used  in  the  interferometric 
measurements.  In  addition  to  the  Fortran  COMMENT  statements  dispersed 
throughout  the  subprograms,  there  is  a  description  of  the  function  of 
each  subprogram  on  the  right  hand  side  of  the  listing. 


3.1  Flow  Diagram  of  Computer  Program 
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4.  DESCRIPTION  OF  OUTPUT 

The  output  from  the  computer  program  consists  of  two  parts. 

A  printed  page  is  generated  for  each  block.  This  contains  the 
environmental  conditions,  the  instruments  used  in  the  measurement,  the 
calculated  values:  temperature,  pressure,  humidity,  vapor  pressure 
and  final  length  of  block.  The  end  of  the  page  contains  the  printout 
of  some  of  the  intermediate  calculated  values.  See  Section  5.  Sample 
Run. 


Two  punched  cards  are  produced  for  each  calculation  of  length, 
cards  have  the  following  format. 


These 


Card 

Input  or 

Column 

No. 

Computed 

Variable 

Type 

Position 

1 

Input 

Block  serial  number 

Alphanumeric 

1  -  6 

Input 

Nominal  block  length 

Numeric 

8  -  18 

Input 

Month 

Numeric 

20  -  21 

Input 

Day 

Numeric 

23  -  24 

Input 

Year 

Numeric 

26  -  27 

Computed 

Length  correction 
(micro-inches) 

Numeric 

29  -  34 

Input 

Coefficient  of  expansion 
(micro-inches  per  degree 
Celsius  of  block) 

Numeric 

5 

36  -  45 

Computed 

Pressure  (mm  of  Hg) 

Numeric 

47  -  53 

Computed 

Air  temperature  (Celsius) 

Numeric 

55  -  61 

Computed 

Block  temperature 
(Celsius) 

Numeric 

63  -  69 

Input 

Maker  of  block 

Alphanumeric 

71  -  73 

Input 

Material  of  block 

Alphanumeric 

75  -  76 

Input 

Type  of  block 

Alphanumeric 

78  -  80 

Input  Block  serial  number 

Input  Nominal  block  length 

Input  Month 

Input  Day 

Input  Year 

Computed  Length  correction 

(micro- inches) 

Computed  Vapor  pressure  (mm  of  Hg) 

Computed  Fringe  fraction 

Input  Platen 

Input  Assumed  block  length 

(inches) 

Input  Maker  of  block 

Input  Material  of  block 

Input  Type  of  block 


Alphanumeric 
Numeric 
Numeric 
Numeric 
Numeric 
Numeric 

Numeric 

Numeric 

Alphanumeric 

Numeric 

Alphanumeric 
Alphanumeric 
Alphanumeric 


1 
8 

20 
23 
26 
29 

36 
41 

46 
50 

70 
75 
78 


6 

18 

21 

24 

27 

34 

39 
44 
48 
60 

73 
76 
80 
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5.  SAMPLE  RUN 

Included  in  this  section  is  a  sample  run  consisting  of  listings  of 
the  input,  printed  output,  and  punched  card  output. 

5.1  Listing  of  Input  Data  For  Sample  Run 

LONG!     12146    RNV    H-4    4     16    73     1     27.52715    27.52590  27.52590    27.52715                                                     Card    1 

-.56        .05    758.28    758.28    66.0        1  Card    2 

l  Card  3 

2306                       io.o                     10.00000200  n.50-6                      DOA  st  rec         Card  4 

969     1045     1221     1221     1045    967  Card    5 

LONG2        1:47    RNV    H-7    4     16    73    1     27.52715    27.52590  27.52590     27.52715                                                     Card    1 

-.56        .05    758.28    758.28    40.0       2  Card    2 

i  Card  3 

2306                                 10.0                              10.00000200  1 1  .  5D-6                                DOA    ST    REC             Card    4 

969        1045     1221     122  1     1045    967  Card    5 

L9697        1151    CDT    VK2    02    23    76    3    27.54140    27.54140    27.54140    27.54140  Card    1 

3.0    3.17    757.27    757.32             62    5  Card    2 

2  Card  3 

194                                .127                                          .127002  1 1 . 50D-6                                HOM    ST    REC             Card    4 

594    648    834    833    646     594  Card    5 

9L5                                .133                                          .132999  11.500-6                                FON    ST     R                   Card   4 

655    797    890    890    795    652  Card    5 

stop  Flag  to  terminate  run. 


5.2  Listing  of  Card  Output  From  Sample  Run 


2306 

10.000000 

4 

16 

73 

-2.39 

2306 

1C.C00000 

4 

16 

73 

-2.39 

2306 

10.000000 

4 

16 

73 

-.53 

2306 

10 

.ocoooo 

4 

16 

73 

-.53 

194 

.127000 

2 

23 

76 

2.89 

194 

.127000 

2 

23 

76 

2.89 

9U5 

.133000 

2 

23 

76 

-.49 

9L5 

.133000 

2 

23 

76 

-.49 

.00001150   758.28   19.999  19.984  DOA  ST  REC 

4.6   .30  H-4   10.0000020  DOA  ST  REC 

.00001150   758.28   19.999  19.984  DOA  ST  REC 

7.9   .30  H-7   10.0000020  DOA  ST  REC 

.00001150   757.29   19.924  19.920  HOM  ST  REC 

4.1   .22  VK2      .1270020  HOM  ST  REC 

.00001150   757.29   19.924  19.920  FON  ST  R 

4.1    .60  VK2      .1329990  FON  ST  R 
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5.3  Listinq  of  Printed  Output  From  Sample  Run 


INTERFEROMETRIC  GAGE  BLOCK  MEASUREMENT 


SERIAL    NO. 


2306    TEST    NO.       L0NG1     INTERFEROMETER 


ZEISS-LB 


NOMINAL     SIZE        10.000000    DATE 


4/16/73  MEAS.  FRINGE  FRAC. 


ASSUMED    LENGTH 


TIME 


12:46   LIGHT  SOURCE 


LASER     NO. IODINE 


.10C000020+002    OBSERVER 
COEF    OF     EXP        .115000-04    PLATEN 
MAKER  DOA 

MATERIAL  ST 


TYPE 


REC 


RNV  VAC. WAVELENGTH  .6329  90074+000 
H-4  SLIT  CORR  .6200000-08 

OBLIQ  CORR  .0000000 

PHASE  CORR  .0000000 


BRIDGE  10  107634 
BAROMETER  ID  SI  1264 


THERMOMETER  ID    206 
HYGROMETER  10   6388 


ENVIRONMENT 


TEMPERATURE 


BRIDGE 
READINGS 


MEAN 

CCRR 

ThERM.  RESISTANCE 

REF.  TEMP. 

THERMOCOUPLE(BLOCK)     -.014 

Tt-ERMOCOUPLE(AIR)  .001 

BLOCK  TEKP.        .19984+002 

AIR  TEMP.  .19999+002 


PRESSURE 

HUMIDITY 

27.52715 

BAROMETER 

758.28 

HYGROMETER 

27.52590 

READINGS 

758.28 

READING 

66.0 

27.52590 

27.52715 

27.52652 

758.28 

-.00077 

1  .8 

27.52575 

PRESSURE 

758.28 

HUMIDITY 

26.5 

19.998 

VAPCR    PRESS 

4.6 

FINAL  LENGTH  OF  BLOCK       9.9999976  1 
CORRECTION   -2.39 


NUMBER  OF  FR INGES= 
EFFECTIVE  WAVELENGTH= 
FPRIME= 


.80275766+006 
.6328  1863+0  02 
.80275730+006 


A= 

C= 

LTPRIM= 

TA= 

P= 


.29  090595-003 
.25839945-006 
.  10000000+002 
. 19998861+002 
•75828C00+003 


B= 

BETA= 

L21  = 

TB= 

F= 


.93216834+000 
.99999981+000 
.99999976+001 
.19983733+002 
.460741 17+001 
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INTERFEROMETRIC    GAGE     BLOCK     MEASUREMENT 


SERIAL    NO.  2306    TEST     NO. 

NOMINAL     SIZE        10.000000    DATE 
ASSUMED    LENGTH  TIME 

•1OC000O2O+O02    OBSERVER 
COEF    OF     EXP        .115000-04    PLATEN 
MAKER  DOA 

MATERIAL  ST 

TYPE  REC 


L0NG2     INTERFEROMETER  ZEISS-LB 

4/16/73    MEAS.     FRINGE    FRAC.  .30 

1147       LIGHT     SOURCE  LASER     NO. IODINE 

RNV     VAC. WAVELENGTH     .6329  90074+000 
H-7     SLIT    CORR  .6200000-08 

OBLIQ    CORR  .0000000 

PHASE     CORR  .0000000 


BRIDGE  ID  107634 
BAROMETER  ID  S11264 


THERMOMETER  ID    206 
HYGROMETER  ID   6499 


ENVIRONMENT 


TEMPERATURE 


PRESSURE 


HUMIDITY 


BRIDGE  27.52715 

READINGS  27.52590 

27.52590 
27.52715 
MEAN  27.52652 

CORR  -.00077 

THERM.  RESISTANCE  27.52575 
REF.  TEMP.  19.998 

THERMOCOUPLE(BLOCK)  -.0  14 
THERMCCOUPLE(AIR)  .001 
BLOCK  TEMP.  .19984+002 
AIR  TEMP.  .19S59+002 


BAROMETER 
READINGS 


PRESSURE 


758.28 
758.28 


758.28 
758.28 


HYGROMETER 
READING 


HUMIDITY 
VAPOR  PRESS 


1  .8 

45.5 

7.9 


FINAL    LENGTH    OF    BLOCK 
CORRECTION 


9.95999947 
-.53 


NUMBER    OF    FRINGES= 
EFFECTIVE     WAVELENGTH= 
FPRIME= 


.80275751+006 
.63281875+002 
.80275730+006 


A= 
C= 

LTPRIM= 

TA= 

P= 


.29090595-003 
.44436448-006 
. 10000000+002 
.  19996861  +  002 
.75828000+003 


B= 

BETA= 

L21  = 

TB= 

F  = 


.93216834+000 
.9999  9981+000 
.99999995+001 
.  19983733+002 
.79232759+001 
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INTERFEROMETRIC  GAGE  BLOCK  MEASUREMENT 


SERIAL  NO. 

NCMINAL  SIZE 

ASSUMED  LENGTH  TIME 

.127002000+000  OBSERVER 
COEF  OF  EXP   .115000-04  PLATEN 
MAKER  HOM 

MATERIAL  ST 

TYPE  REC 


194    TEST    NO.       L9697     INTERFEROMETER  ZEISS-SB 

.127000    DATE  2/23/76    MEAS.     FRINGE    FRAC.  .22 

1151        LIGHT     SOURCE  LASER     NO.PE-184 

CDT     VAC. WAVELENGTH  .6329  91419+000 
VK2     SLIT    CORR  .6200000-08 

OBLIQ    CORR  .0000000 

PHASE    CORR  .0000000 


BRIDGE  ID  045848 
BAROMETER  ID  U11485 


THERMOMETER  ID  183335 
HYGROMETER  ID   7536 


ENVIRONMENT 


TEMPERATURE 


PRESSURE 


HUMIDITY 


BRIDGE 
READINGS 


MEAN 

CCRR 

THERM.  RESISTANCE 

REF.  TEMP. 

THERMOCOUPLE(BLOCK) 

THERMOCOUPLE (AIR) 

BLOCK    TEMP. 

AIR     TEMP. 


27.54140 

27.54140 

27.54140 

27.54140 

27.54140 

-.00049 

27.54091 

19.846 

.074 

.079 

. 19920+002 

.19924+002 


BAROMETER 
READINGS 


PRESSURE 


757.27 
757.32 


757.29 
757.29 


HYGROMETER 
READING 


1.8 
HUMIDITY  23.3 

VAPOR    PRESS  4.1 


FINAL    LENGTH    OF    BLOCK 
CORRECTION 


,12700289 


2.89 


NUMBER  OF  FRINGES= 
EFFECTIVE  WAVELENGTH= 
FPRIME= 


. 10195149+0  05 
.63282014+002 
. 10195221+005 


A= 
C= 

LTPRIM= 

TA= 

P= 


.29052805-003 
.22728539-006 
.12700188+000 
.  19924338+002 
.75729500+003 


B= 

BETA= 

L21= 

TB= 


.93240557+000 
.99999908+000 
. 12700290+000 
.  19920122  +  002 
.40526296+001 
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INTERFEROMETRIC    GAGE    BLOCK     MEASUREMENT 

SERIAL     NO.  9L5    TEST     NO.  L9697     INTERFEROMETER  ZEISS-SB 

NOMINAL     SIZE  .133000    DATE  2/23/76    MEAS.     FRINGE    FRAC.  .60 

ASSUMED    LENGTH  TIME  1151        LIGHT    SOURCE  LASER     NO.PE-184 

.132999000+000    OBSERVER  CDT     VAC . WAVELENGTH  .6329  91419+000 

CCEF    OF     EXP        .115000-04    PLATEN  VK2     SLIT    CORR  .6200000-08 

MAKER  FON  OBLIQ    CORR  .0000000 

MATERIAL  ST  PHASE    CORR  .0000000 

TYPE  .    R 

BRIDGE     ID     045848  THERMOMETER     ID     183335 

BAROMETER     ID    U11485  HYGROMETER     ID        7536 

ENVIRONMENT 

TEMPERATURE  PRESSURE  HUMIDITY 

BRIDGE  27.54140  BAROMETER  757.27  HYGROMETER 

READINGS  27.54140  READINGS  757.32  READING  62.0 

27.54140 

27.54140 
MEAN  27.54140  757.29 

CCRR  -.00049  1.8 

THERM.     RESISTANCE        27.54091  PRESSURE  757.29  HUMIDITY  23.3 

REF.     TEMF.  19.846  VAPOR    PRESS  4.1 

THERMOCOUPLE (BLOCK)  .074 

THERMOCOUPLE(AIR)  .079 

BLOCK    TEMP.  .19920+002 

AIR     TEMP.  .19924+002 


FINAL    LENGTH    OF     BLOCK  .13299951 

CORRECTION  -.49 


NUMBER    OF  FRJNGES=                     .10676561+0  05 

EFFECTIVE  WAVELENGTH=           .63282014+002 

FFRIME=  .10676603+005 

A=  .29052805-003                     B=                        .93240557+000 

C=  .22728539-006           BETA=                        .99999908+000 

LTPRIM=  . 1329?ee8+C00              L21=                        .13299951+000 

TA=  .19924338+002                  TB=                         .19920122+002 

P=  .757295CO+003                     F=                        .40  526296+001 
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ERROR  MESSAGES 


1.  CHECK  DATA  followed  by  last  data  card  read. 

This  message  is  printed  by  the  main  program  and  execution  is 
terminated  under  the  following  conditions: 

a.  Number  of  numeric  values  on  data  card  1  f   8 

b.  Number  of  numeric  values  on  data  card  2^6 

c.  Number  of  numeric  values  on  data  card  3  f   1 

d.  Number  of  numeric  values  on  data  card  5^6 

2.  CHECK  FRINGE  FRACTION  DATA 

This  message  is  printed  by  the  main  program  if  the  absolute 
difference  of  corresponding  fringe  fraction  is  greater  than  3. 
The  calculations  are  continued. 

3.  CHECK  RESISTANCE  AVERAGE  followed  by  listing  of  dial  readings. 

This  message  is  printed  by  the  subprogram  BAVGCO  and  execution  is 
terminated  if  the  resistance  dial  readings  do  not  fall  in  the 
range  0  to  9. 

4.  FRINGE  FRACTION  IS  NEGATIVE  OR  GREATER  THAN  1 

This  message  is  printed  by  the  subprogram  COMPUT  if  the  computed 
value  of  the  observed  fringe  fraction  is  negative  or  greater  than 
1.  Execution  is  terminated  when  this  occurs. 

5.  The  remainder  of  the  possible  error  messages  are  produced  by  the 
subprogram  ERROR.  They  may  occur  when  the  input  data  is  not  in  a 
correct  format. 
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APPENDIX  A 


Al.  Parameters  in  BLOCK  DATA  Subprogram 

Al  .A  Input-Output  Units 

IN  =  5     input  unit  (card  reader) 
IOUT  =  6    output  unit  (printer) 
IPCH  =  1    output  unit  (punch) 

Al.B  The  following  table  defines  each  parameter,  it's  computer 
program  variable  name,  and  its  current  value  at  the  time  this 
paper  was  published.  Numbers  enclosed  in  brackets  beside  the 
parameter  value  is  the  number  used  for  input.  (See  Section  2. 
Description  of  Input,  card  1  and  card  2.)  As  indicated  in  the 
table  the  apparatus  used  for  measuring  long  and  short  blocks  are 
different.  Two  different  sets  of  apparatus  may  be  used  in 
measuring  short  blocks. 


Computer 
Variable 

INTSNO 


Description 

Interferometric 
serial  number 


Long 
Blocks 


Short  Blocks 


[l]Zeiss-LB  [2]Hilger  1955  [3]Zeiss-SB 


LSSNO 

Laser  serial 
number 

IODINE      SP-163 

PE-184 

VACWLN 

Vacuum  wavelength 

.632990074  .632991420 

.632991419 

HYGSNO 

Hygrometer  serial 

number 

(range  8%  -  40%) 

[1]6388     [3]6331 

[5]7536 

Hygrometer  serial  [2]6499 

number 

(range  30%  -  80%--long  blocks) 

(range  35%  -  80%--short  blocks) 


[4]6415 


[6]7530 


BRDSN0 

Bridge  serial 
number 

107634 

118684 

045848 

THRSN0 

Thermometer  serial 
number 

206 

184 

183335 

BARSN0 

Barometer  serial 
number 

SI  1264 

SI  2566 

Ul 1485 

41 


-6 


.0248%i'V 

.0248°/yV 

.016  x  10"6 

.0062  x  10 

.166  x  10"6 

0.0 

0.0 

0.0 

-6 


CONFAC    Thermocouple        .0248 
conversion  factor 

SLTCOR    Slit  correction    .0062  x  10 

OBLCOR    Obliquity  correction   0.0 

PHSCOR    Phase  correction      0.0 

When  a  newly  calibrated  resistance  bridge  is  introduced,  the 
bridge  serial  number  (BRDSNO)  must  be  changed.  Associated  with  each 
bridge  there  is  a  table  of  corrections.  The  appropriate  variables 
ITEN,  IUNIT,  ITENTH,  IHUND  need  to  be  changed. 

When  a  newly  calibrated  platinum  resistance  thermometer  is 
introduced,  the  thermometer  serial  number  (THRSNO)  must  be  changed. 
The  constants  a  (Alpha),  6  (Delta),  and  R0  (RICEPT)  in  the  international 
practical  temperature  scale  formulas  must  be  changed. 

When  a  newly  calibrated  hygrometer  is  introduced,  the  hygrometer 
serial  number  (HYGSNO)  must  be  changed. 

The  coefficients  (COEFF)  of  the  polynominal  used  to  convert  the 
hygrometer  readings  to  relative  humidity  must  be  recomputed. 

A2.  Cross  Reference  of  Labeled  Common 


Common 

Size 

Subprograms 

Block 

(Computer 

Using  Labeled 

Name 

Words) 

Common 

OUT 

39 

MAIN 

COMPUT 

OUTPUT 

C0MP 

2 

MAIN 

COMPUT 

INPUT 

6 

MAIN 

HUMVP 

OUTPUT 

INPUT3 

6 

MAIN 

COMPUT 

BRGTAB 

108 

BAVGCO 

TABLES 

RESTAB 

18 

RESTEM 

TABLES 

HUMCOR 

6 

HUMVP 

OUTPUT 

TABLES 

HUMDAT 

108 

HUMVP 

TABLES 

10 

3 

MAIN 

BAVCOR 

COMPUT 

OUTPUT 

HUMVP 

BRGOUT 

3 

MAIN 

BAVCOR 

RESTEM 

OUTPUT 

INFER 

5 

MAIN 

HUMVP 

COMPUT 

OUTPUT 

INTPRT 

BRGIN 

10 

MAIN 

BAVCOR 

RESTEM 

COMPUT 

OUTPUT 

OUTR 

6 

MAIN 

OUTPUT 

BARPRS 

3 

MAIN 

COMPUT 

OUTPUT 

INTPRT 

HUMIDV 

3 

MAIN 

HUMVP 

COMPUT 

OUTPUT 

INTPRT 

INTOUT 

12 

COMPUT 

OUTPUT 

INTPRT 

TABVAL 

75 

COMPUT 

OUTPUT 

TABLES 

MAIN 

TABLES 
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A3.  Computer  Storaqe  Needed  By  Subprograms 


Storage 


Subprogram 

Lines  of  Code 

Code 

Data 

MAIN 

239 

383 

128 

READIT 

387 

586 

144 

ERROR 

52 

104 

164 

RAVCOR 

61 

167 

41 

RESTEM 

26 

57 

36 

QUAD 

71 

193 

36 

HUMVP 

84 

236 

73 

COMPUT 

122 

192 

83 

OUTPUT 

125 

196 

404 

DFFD 

129 

194 

54 

INTPRT 

22 

24 

40 

TABLES 

262 

0 

0 

Total 


1580 


2138 


1203 
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APPENDIX  B 


GRAPHS  FOR  CONVERTING 
HYGROMETER  READINGS  TO  HUMIDITY 
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